home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g09.bas < prev    next >
BASIC Source File  |  1991-10-18  |  406b  |  17 lines
  1. 100 ' G09 T.WAKAMATSU 
  2. 110 CLS:PI=3.14159!:C1(1)=4:C1(2)=2:C1(3)=0
  3. 120 C(1)=5:C(2)=3:C(3)=0
  4. 130 PSET(320,479)
  5. 140 FOR L=1 TO 3
  6. 150   C=C(L):K=C1(L)
  7. 160   FOR T=0 TO PI*2 STEP PI/96
  8. 170     U=PI*2-T
  9. 180     X=SIN(65*T)*239+320
  10. 190     Y=COS(65*T)*239+240
  11. 200     LINE -(X,Y),PSET,%K
  12. 210     X=SIN(65*U)*120+320
  13. 220     Y=COS(65*U)*120+240
  14. 230     LINE -(X,Y),PSET,%C
  15. 240   NEXT T
  16. 250 NEXT L
  17.